use threads;
threads->new(sub { print "Foo!\n"; });
[download]

Now that I've fullfilled your request, could you fullfill one of mine? Read the perlthrtut and threads docs that comes with Perl.

-sam