perl -e'$u="use.perl.html";open$o,">$u"||die"$!";print$o q(#!/usr/bin/perl

USE

🐪 PERL!);close$o;$_=$^O;if(/darwin/){$x="open $u"}elsif(/m(swin|sys)/){$x=q(start "" "$u")}elsif(/cyg/){$x=q(cmd.exe /c start "" "$u ")}else{$x="xdg-open $u"}system$x'