use File::Copy; use strict; copy("ers-as1.dsk","ers-as2.dsk");