my $input = @ARGV ? shift(@ARGV) : <STDIN>;