Select Code to Download

#!/usr/bin/perl -w

...
    chomp;
    print "Got line >>$_<<\n";
};

osabst@dfrsifc1:/tmp $ cat >totte.log
test

osabst@dfrsifc1:/tmp $ perl -w tmp.pl
Got line >>test<<

Got line >>test2<<
$ cat tmp.pl
...
    chomp;
    print "Got line >>$_<<\n";
};