Select Code to Download

@execute = ("gettersubscript.cgi", "$var1", "$var2");
system(@execute) == 0 or die "system @execute failed: $?";

#!/usr/bin/perl
$file = "current.txt";
...
open (FILE, ">>$current") or die "Unable to access $file:$!\n";
print FILE "testline \n";
close FILE;