use File::Copy;
{
    open local(*ORIG), '<', '/path/to/encrypted.foo' or die $!;
    copy \*ORIG, '/path/to/plain.foo';
    close ORIG;
}