use FindBin;
print "Usage: $FindBin::Script [foo]\n";