barf "Green pigs: $!" unless copy $source, $dest;