#! /tools/perl/5.8.8/linux/bin/perl

use strict;
use warnings;
my $name='inoutdata';

system("uuencode /home/user/set/result.txt | mailx -s '$name' email");