sub create_script {
    my ($script_path,$content) = @_;
    open(my $fh, '>', "$script_path") or die "Could not open script";
    print $fh "set -x\n";
    print $fh $content;
    close($fh);
}