Code Not Fail Posting procedure

#!/usr/bin/perl
while(true){
open (codenotfail, ">blogger.com");
print codenotfail @content[int(rand(1337))];
close codenotfail;
sleep (int(rand(2592000))+86400);
}