[Perl] How to execute system commands?

notes.pl

use strict;
use warnings;


sub cmd {
    my ($command) = @_;
    eval {

    my $result = system(1, qq^bash -i -c '$command'^);
    print "result: $result\n";
    }
}

#system('bash -i -c "less /tmp/test.txt");

#system('echo \'test\''); # (/)
#system(q|echo "test"|); # (/)
#system(q|bash -i -c 'less /tmp/test.txt'|); # (/)
#system(q|bash -i -c 'less "/tmp/test.txt"'|); # (/)
#system(q|bash -i -c 'less '/tmp/test.txt''|); # (/)
#system(q^bash -i -c 'less '/tmp/test.txt''^); # (/)

#cmd("sudo apt-get update && sudo apt-get upgrade");

        unless (kill 0 => $kid_pid) {
            warn "something wicked happened to $kid_pid";
        }

system("kill 1 0");
print "line 1";
print "line 2";