use strict; use warnings; #prints one line and bails out @ARGV = ( '<'.$0 ); while (<>) { close ARGV; print '.',$_; }