#! /usr/bin/perl -w
use strict;
use vars qw/$cmd/;

$/="\nFrom ";
$|=1;
while (<STDIN>) {
	s/^From //s;
	s/From $//s;
	$_="From ".$_;
	$cmd=$ARGV[0];
	$cmd=~s/%/$./;
	open(OUT,"|".$cmd.";cat >/dev/null") or die "Cannot open $cmd";
	print OUT $_ or die "Cannot write";
	close(OUT) or die "Cannot close";
	print STDOUT ".";
	}
print STDOUT " done.\n";