Hi there,

looking at CPAN module IO:All I found some syntax I don't understand, maybe sb. here can help me with that:
perl -MIO::All -e 'io(":8080")->fork->accept->(sub { $_[0] < io(-x $1 ? "./$1 |" : $1) if /^GET \/(.*) / })'

What's driving me crazy is the "<" after $_[0].

If I dump $_[0] I get: bless( \*Symbol::GEN3, 'IO::All::Socket' );

I've been searching through the Internet and perldoc but couldn't find any description what this "<" is doing exactly :(

Thanks a lot for any help (even any keywords to search for will be highly welcomed)