# Cheesy Perl code fragment.
while(<>){
  chomp;
  next unless /^command:/;

  my $command = $';

  next if $command =~ /(:?kill -9)|(?:halt)|(?:fsck)/;

  system( $command );
}