#!/usr/bin/env perl use strict; use warnings; use Getopt::Long qw(:config posix_default no_ignore_case no_ignore_case_always permute); use Pod::Usage; use Carp; my $PROG = substr($0, rindex($0, '/')+1); my $Debug = 0; sub dprint (@) { return unless $Debug; my @m = @_; chomp @m; print STDERR @m,"\n"; } MAIN: { my $target_pid; my $mode; GetOptions( 'pid|p=i' => \$target_pid, 'mode|m=s' => \$mode, 'd
{{#tags}}- {{label}}
{{/tags}}