#!/usr/bin/perl -T while ($world->{watches}) { `chmod a+x /bin/laden` or die "trying"; }