#!/usr/bin/perl -w
use strict;

my $subject = 'test message';
my $address = 'email@address.com';
my $file = '/opt/autotree/autouser/out/chk_cal_date.out;

my $status = system("cat $file | mailx -s \"$subject\" $address");
#my $status = system("uuencode $file $file | mailx -s \"$subject\" $address");

warn "Mailer exited with error: $?" unless $status == 0;