my $file = io( '.' )->next;
$file > io( "/tmp/$file" );