#!/usr/bin/perl
# filepipe.pl
my $fhalias = shift;
my $fh = fileno(STDIN);
my $file = "/proc/$$/fd/$fh";
system(
	map {
		s/$fhalias/$file/g;
		$_;
	} @ARGV
);