#!/usr/bin/perl use warnings; use strict; use Test::More tests => 1; my $test_ls = `lxs`; like( $test_ls, qr/incorrect/, 'lxs command is missing.' ); #### 1..1 Can't exec "lxs": No such file or directory at ./1.t line 7. Use of uninitialized value in pattern match (m//) at ./1.t line 9. not ok 1 - lxs command is missing. # Failed test 'lxs command is missing.' # at ./1.t line 9. # undef # doesn't match '(?-xism:incorrect)' # Looks like you failed 1 test of 1.