exec ${ECU_PERL_EXEC} -x $0 $*
#!perl -w -d

use strict;
use Net::SFTP::Foreign;
use Mail::Mailer;
use Getopt::Std;
use File::Temp;
use File::Copy;
...