/tttest/cpio: test/1: Cannot stat: No such file or directory
/tttest/cpio: test/2: Cannot stat: No such file or directory
/tttest/cpio: test/3: Cannot stat: No such file or directory
1 block

##</code><code>##

My code:
chdir($archivedir);
my ($WRITEME);
my $program= "| \"$bindir/cpio\" -o -O arch.cpio.new ";
my $pid = open( $WRITEME, $program);
binmode $WRITEME; <<<<<<<<<<<<<<<<<<<<<<<<<<<<<solution
foreach my $f (@filelist){print $WRITEME "$f\n";}
close($WRITEME);