use Test::Most; my ($image_path) = @ARGV; bail_on_fail; ok(-r $image_path, '.idx list file is available.'); ok(-r $image_path, '.lst list file is available.');