aslkdjlaksjd

#!/usr/bin/perl
print "test\n";
system("pwd");