/etc/aliases pagebrad: "| /usr/bin/pagebrad.pl" --------------------------------------- /usr/bin/pagebrad.pl while () {$org_msg .= $_}; $org_msg =~ /([Ss]ubject: )(.*)/; $msg = $2 if $2; $org_msg =~ /([Ff]rom: )(.*)/; $from_field = $2 if $2; $URL = 'http://www.cookmail.com/cgi-bin/img.dll'; use HTTP::Request::Common qw(POST); use LWP::UserAgent; $ua = new LWP::UserAgent; my $req = POST $URL, [ PIN => $pgr_num, From => $from_field, Subject => $subj, Message => $msg, tr => "PinSend", page_name => "Phnximg" ];