use Test::more qw(2);

sub it_worked {
  # check to see if myscript worked
  # EG, did it update file X by adding line Y
}

ok( !system('./bin/myscript'), "didn't blow chunks");
ok( it_worked,'it worked');