Useless use of a constant in void context at ./t.pl line 5.
$from = <>