Ver Source - Perl

#! / usr / bin / perl

use LWP:: Simple;

system ("cls");
system ('the color');
system ('title source view v0.1 - system r00t');

print "r00t system perl - 2008 \ n";
print "Coder: r0t3d \ n";
print "Gretz: Rock - C00L3R \ n";
print "http://botecounix.com.br \ n";

sleep 1;

print "\ nEnter the name of the file will be saved the source:" # If the file does not exist it is created
= $ file1;
chomp $ file1;


print "\ n \ nPlease enter the address you want to see the source code, eg Google \ n \ n";
print "Site";
= $ user;
chomp $ user;

my $ file = $ file1;
my $ doc = get $ user;
open (my $ file, "> $ file1") or die "$!"
print $ file "$ doc";
close $ file;

print "Source saved in $ file1 \ n";