open(FILE, ">test.sh") or die "Couldn't open test.sh.";
print FILE <<'EOS';
#!/usr/bin/sh
echo 'This is a test'
EOS
close(FILE);
print "File written";