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);
}

Sandwich.pl

#!/usr/bin/perl
use kitchen;
my @sandwich=qw(bread ham cheese more_bread);
$sandwich=join('mustard',@sandwich);
chomp($sandwich);