Select Code to Download

#!/usr/bin/perl -w
use strict;
...
        $test     = `ipcrm shm $entry[1]` if (scalar(@entry) == 6);
        print "Result for id $entry[1]: $test" if $test;
}