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

use File::Temp qw/ tempfile tempdir /;

my $temp_dir       = tempdir();
$temp_dir =~ /\/tmp\/(.*)/;
my $temp_dir_name = $1;

my $grep_str = "ls -l /tmp | grep $1";
my $res2 = `$grep_str`;
print "[$grep_str]grep result [$res2]\n";