<sarcasm on>

Your code was a bit off. I updated to this:

#!/usr/bin/perl

use strict;

open (OUT, ">robots.txt") || die "Cannot open robots.txt\n";

print OUT "User-agent: *\n";
print OUT "Disallow: /\n";

close OUT;
[download]

<sarcasm off>