Select Code to Download

#!/usr/bin/perl
use strict;
...
open (my $fh, '>', 'derp.txt') or die "can't open derp.txt: $!";
print $fh $derp;
close($fh);

ls -al derp.txt 
-rw------- 1 marto marto 40000 Sep 21 09:37 derp.txt