[perl] escape della ^

[franke]

#!/usr/bin/perl

use warnings;
use IO::Socket;
use Net::FTP;
use LWP::Simple;