Select Code to Download

#!/usr/bin/perl

...
open my $fh, '<', \$buffer;

copy($fh, "foo.txt");

stat() on unopened filehandle $fh at /share/perl5/lib/5.8.6/File/Copy.
+pm line 82.