Select Code to Download

sub create_script {
    my ($script_path,$content) = @_;
...
    print $fh $content;
    close($fh);
}