Select Code to Download

Too many arguments for main::bcopy at C:\test\junk8.pl line 34, near "
+@in )"

#! perl -sw
use 5.010;
...
bcopy( $out, @in );

say time;

[10:11:26.67} C:\test>junk8 *.jnk bigjnk.out
1247908624
...
bugjunk8.jnk appended to bigjnk.out
bugjunk9.jnk appended to bigjnk.out
1247908656

[10:22:58.79} C:\test>xcopy /Y *.jnk bigjnk.out
Does bigjnk.out specify a file name
...
10 File(s) copied

[10:23:06.51} C:\test>