use File::Copy;

copy('/home/bla/bla.ent', '/home/sla/sla')
  or die "Copy failed: $!";