#!/opt/perl/bin/perl -w

use strict;
use URI::Escape;

my $host = $ARGV[0];
exec ("mail " . uri_unescape(uri_unescape($host)));
.