open( F, $file ) || die "Can't open $file - $!";
while (<F>) {
  print $_;
  next;
}