Select Code to Download

troubled_string($ARGV[0], "logfile.txt");

sub troubled_string{
    my ($str,$logfile_path)=@_;
...
    }
    close $logfile_path;
}