use warnings; use strict; use Test::More; if ($> != 0){ system('sudo', 'prove', '-l', $0); exit; } is 1, 1, "ok"; done_testing();