Select Code to Download

#!/bin/perl

...
print "After\n";              # after "After" nothing happens but file
+ closing.

close($in_file);

#!/bin/perl

...
}

close($in_file);

#!/bin/perl -l -pi.bak

...
    $_ .= "Friday";                     # add "Friday" (and line endin
+g via -l)
    warn "added 'Friday' to line $.\n"; # warn doesn't add line ending
+ via -l
}