#! /usr/bin/perl -w
use strict;

use File::Slurp;

use lib '/site/perl';

@ARGV >= 2 or die "Args: <perl program> <rep count> ...\n";

my $victim = read_file(shift @ARGV);

eval "
sub victim { "
. $victim .
" } ";

open STDOUT, ">", "/dev/null";
open STDERR, ">", "/dev/null";

victim() for 1 .. shift @ARGV;

##</code><code>##

perl -d:Profile tools/profile.pl mail.cgi 500 mode=mailbox mbox=INBOX page=4 sort=vSUBJ