my $line = ; # concise shell style my $line = readline(STDIN); # readable for beginners