use strict;
use warnings;

# create something that crawls PerlMonks 
# grabbing code snippets - 
# this is left as an exercise
my $crawler; 

while (my $snippet = $crawler->next() ) {
    open my $writer, '>', 'temp.pl';
    $snippet = <<"END_SNIPPET";
use strict;
use warnings;
$snippet
END_SNIPPET
    print $writer $snippet;
    close $writer;

    system 'perl -c temp.pl 2>>err.txt';
}