view release on metacpan or  search on metacpan

vbox  view on Meta::CPAN

$SIG{HUP} = 'IGNORE';

$Modem::VBox::debug = 7;

$MAILTO = "vbox\@plan9.de";
$FROM = "vbox\@plan9.de";
$SENDMAIL = "/usr/sbin/exim -oi -oem -f \Q$FROM\E \Q$MAILTO\E";

use POSIX ();
do "/root/s/popup.pl";

sub send_file {
   my ($subject, $filename) = @_;
   #if (fork == 0) {
      $top = MIME::Entity->build(Type    =>"multipart/mixed",
                                 From    => $FROM,
                                 Subject => $subject);

      $top->attach(
         Path        => $filename,