#!/afs/athena/contrib/perl/perl
#
# by Albert Dvornik <bert@mit.edu>
#
# $Id: love-child.pl,v 1.1 1997/06/09 21:12:29 bert Exp $

unshift(@INC, '/afs/athena.mit.edu/user/b/e/bert/project/tape');
require('pipecmd.pl');

&pipecmd'set_upstream('$quit++ if $err;',
		      'dd', 'bs=10k', 'conv=nomulti', 'if=/dev/nrmt0h');
&pipecmd'set_downstream('$flako++ if $err;',
			'gtar', 'tvf', '-');
&pipecmd'run;
&pipecmd'wait (1, 1);

print "Q:$quit\nF:$flako\n";