#!/usr/bin/perl -w


my $line = <>;    # this is input
print $line;      # this is output


my $line = <STDIN>;     # STDIN  = Standard Input   FILEHANDLE
print STDOUT $line;     # STDOUT = Standard Output  FILEHANDLE

open(JIMS_FILE, ">test.txt");

my $line = <JIMS_FILE>;      # reads one line.
print JIMS_FILE "stuff";

my @lines = <JIMS_FILE>;     # slurp the whole file 


# perl myProgram.pl < file.input > file.out

my $line = "jim:20";
my @pair = split /:/, $line;

my $name = "James H. Mahoney";

if ($name =~ m/James/ ){      # regular expression
}


