Select Code to Download

  open my $in_fh, '<',$file; 
  my @lines = $file;
  close $in_fh;

  my @lines = <$in_fh>;