#!/usr/bin/perl

open (AB, $ARGV[0]); 
while ($x = <AB>) {
  chop($x); 
  print "cp -f $x ../$x\n"; 
}
close(AB);