#!/usr/bin/perl -perl;s;;\$;;s$!$="$;m!-!;eval$`.'"';$_=1