[root@rwsoda203db1 perl_tidb]# cat p.pl
#!/usr/bin/perl
use strict "subs";
use strict;
use v5.16;
my $perl_info = qx(ps $$);
my $shell_info = qx 'ps $$';
print "perl_info $perl_info\n";
print "shell_info $shell_info\n";
[root@rwsoda203db1 perl_tidb]# ./p.pl
perl_info PID TTY STAT TIME COMMAND
15873 pts/1 S+ 0:00 /usr/bin/perl ./p.pl
shell_info PID TTY STAT TIME COMMAND
15875 pts/1 R+ 0:00 ps 15875
