print q.use..$",sub{use:perl,@_}->(q);)),^@^,q;or die;