Select Code to Download

open my $handle, "<", $ARGV[0] or die "Couldn't open file: $!"; # safe
+r way to open a file for reading.
while (<$handle>)
{
...
    # Some code
  }
}