open(NEWFILE,"</tmp/$filename");
print <NEWFILE>;    
close(NEWFILE);

##</code><code>##

open(NEWFILE,"</tmp/$filename");
while(<NEWFILE>) {
  print $_;
}  
close(NEWFILE);