perl通过反引号句柄执行系统命令

#!/usr/bin/perl
use strict;
use warnings;

my $var="something";

print "fileis ",__FILE__," line on ",__LINE__,"n";

print <<`shell`;
echo $var
date
[ -e /data ] && echo "/data dir is exist!"
SHELL