#!/usr/bin/perl
@files = `ls`;
for (@files) {
  `cp $_ backupdir`;
}
# yes, OK, hideous example, beyond hideous
# do you recall one of your early Perl efforts that was 
# just a bunch of system calls?