perl -le 'print glob("~"); print <~>'