Mine

$uploader = system("uname -n");

 open( FILE2, "< $filename2" ) or die "Can't open $filename2 : $!";

foreach $linea2 (<FILE2>) {
push @linea, $linea2;
#print $linea2;
        }
#print @linea;

close FILE2;


my $sth = $dbh->prepare(qq{
   insert into indexer (webdesc, webtext, uploader, rank, last_review) values ('url_to_add', ?, '$uploader', '3', CURDATE())
});