Buongiorno, questo e il mio primo post, volevo chiedervi se questo script funziona, visto che gira solo sotto sistemi unix e io al momendo il mio linux e fuori uso.

Me lo potete testare, dire l'eventuale problema e spiegarmi l'errore nello script?
E infine se c'e un comando mail per windows

#!/usr/bin/perl
#Compilare i campi, funziona solo da sistemi unix


print "Inserire email: \n" ;
$vittimaEmail = <STDIN> ;

print "Inserire il mittente: \n" ;
$from = <STDIN> ;

print "Inserire oggetto messaggio: \n" ;
$oggetto = <STDIN> ;

print "Inserire messaggio \n" ;
$messaggio = <STDIN> ;

print "Numero messaggi da inviare \n" ;
$n = <STDIN> ;

while ($n > 0) {
$n--;
open (MAIL, '|/usr/sbin/sendmail -t');
print MAIL qq[From: $from];
print MAIL qq[To: $vittimaEmail];
print MAIL q[Subject: $oggetto];
print MAIL q[$messaggio];
close (MAIL);
};