# send a mail when transfer completed
my $mail = new Mail::Sender
     {smtp => 'localhost', from => $linux};
    $mail->MailMsg({to => $recipient,
      subject => 'data transfer',
      msg => $content});