Help for this page

Select Code to Download


  1. or download this
       open FILE, "$dest";
   my @lines = <FILE>;
   close FILE;
  2. or download this
        use IO::File;
    my $file = new IO::File($dest, '<')  
        or die "Oops, couldn't open $dest: $!";
  3. or download this
        open FILE, '<', $dest   
        or die "Oops, couldn't open $dest: $!";
  4. or download this
        $a = "@{[print hello]}";
    $z = "$a";               # no output
    $z = "@{[print hello]}"; # output: hello