chomp(my $runlevel = qx{/sbin/runlevel});
if ($runlevel eq '4 3') {
    print "RUNLEVEL 3\n";
}
elsif ($runlevel eq '3 4') {
    ...
}