#!/tools/sde/frame.sde/bin/perl
$subject="I am subject";
$hfile="/aim2/actiview/web/scripts/samweb/perl-lib/mbm/mbm_csv/test1/t2.csv";
open(my $fr_uuencode, '-|',
    uuencode => ( $hfile )
)
    or die $!;

open(my $to_mailx, '|-',
    mailx => (
        -s => '$subject',
        -m => 'manjunath.bm\@alcatel-lucent.com mbm\@alcatel-lucent.com',
    )
)
    or die $!;

print $to_mailx $_ while <$fr_uuencode>;