#!/usr/bin/perl -n
BEGIN {
	$tmplt = <<'End';
[ -n "$file" ] && ln -s "`readlink -f "$file"`" "$work_dir/$arg_name" &&
End
	$count = 0;
	@names = ();
}
$arg_num = $.;
chomp($arg_name = $_);
$command = $tmplt;
$command =~ s/\$file/\${$arg_num}/g;
$command =~ s/\$arg_name/$arg_name/g;
print $command;
++$count;
push @names, $arg_name;
END {
	print <<End;
[ \$# = $count ] || { echo >&2 usage: "\$prog @names"; exit 2; }
End
}