#! /usr/bin/perl -w


use MIME::Base64;

if (!defined $ARGV[0]) { die "No file specified\n";}

if ($ARGV[0] =~ /(.*)\.864/) {
	$fname = $1 . ".paq8l";
	$rawname = $1;
	my $text = `cat $ARGV[0]`;
	my $decomptext = decode_base64($text);
	open (OUT, ">", "$fname");
	print OUT $decomptext;
	close (OUT);
} else {
	die "No file specified\n";
}

#$cmd = "/usr/local/share/pskmail/paq8l -d $fname &>/dev/null";
$cmd = "/usr/local/share/pskmail/paq8l -d $fname";

system ($cmd);

unlink "$fname";

$fname = $rawname . ".864";
unlink "$fname";

1;
