=========================================================== .___ __ __ _________________ __ __ __| _/|__|/ |_ / ___\_` __ \__ \ | | \/ __ | | \\_ __\ / /_/ > | \// __ \| | / /_/ | | || | \___ /|__| (____ /____/\____ | |__||__| /_____/ \/ \/ grep rough audit - static analysis tool v2.8 written by @Wireghoul =================================[justanotherhacker.com]=== rex-1.13.1/t/read_buffers.t-28- rex-1.13.1/t/read_buffers.t:29:my ( $out, $err ) = $exec->exec($command); rex-1.13.1/t/read_buffers.t-30- ############################################## rex-1.13.1/bin/rexify-1377- rex-1.13.1/bin/rexify:1378:ARCHIVE=`awk '/^__ARCHIVE_BELOW__/ {print NR + 1; exit 0; }' $0` rex-1.13.1/bin/rexify-1379- ############################################## rex-1.13.1/lib/Rex/CLI.pm-139- if ( $opts{'H'} =~ m/^perl:(.*)/ ) { rex-1.13.1/lib/Rex/CLI.pm:140: my $host_eval = eval($1); rex-1.13.1/lib/Rex/CLI.pm-141- ############################################## rex-1.13.1/lib/Rex/CLI.pm-156- if ( $opts{'z'} ) { rex-1.13.1/lib/Rex/CLI.pm:157: my $host_eval = eval { `$opts{'z'}`; }; rex-1.13.1/lib/Rex/CLI.pm-158- if ( $host_eval =~ m/\S/xms ) { ############################################## rex-1.13.1/lib/Rex/CLI.pm-166- if ( $opts{'z'} ) { rex-1.13.1/lib/Rex/CLI.pm:167: my $host_eval = eval { `$opts{'z'}`; }; rex-1.13.1/lib/Rex/CLI.pm-168- if ( $host_eval =~ m/\S/xms ) { ############################################## rex-1.13.1/lib/Rex/CLI.pm-312- rex-1.13.1/lib/Rex/CLI.pm:313: $code = eval($code); rex-1.13.1/lib/Rex/CLI.pm-314- ############################################## rex-1.13.1/lib/Rex/Task.pm-879- if ($wantarray) { rex-1.13.1/lib/Rex/Task.pm:880: @ret = $self->executor->exec( $options{params}, $options{args} ); rex-1.13.1/lib/Rex/Task.pm-881- } rex-1.13.1/lib/Rex/Task.pm-882- else { rex-1.13.1/lib/Rex/Task.pm:883: $ret[0] = $self->executor->exec( $options{params}, $options{args} ); rex-1.13.1/lib/Rex/Task.pm-884- } ############################################## rex-1.13.1/lib/Rex/Require.pm-36- rex-1.13.1/lib/Rex/Require.pm:37: my $ret = eval "CORE::require(\$file)"; rex-1.13.1/lib/Rex/Require.pm-38- ############################################## rex-1.13.1/lib/Rex/Template.pm-168- rex-1.13.1/lib/Rex/Template.pm:169: my $tpl_code = eval($var_data); rex-1.13.1/lib/Rex/Template.pm-170- ############################################## rex-1.13.1/lib/Rex/Template.pm-184- rex-1.13.1/lib/Rex/Template.pm:185: $___r = eval($new_data); rex-1.13.1/lib/Rex/Template.pm-186- ############################################## rex-1.13.1/lib/Rex/Helper/Run.pm-97- my $exec = Rex::Interface::Exec->create; rex-1.13.1/lib/Rex/Helper/Run.pm:98: my ( $out, $err ) = $exec->exec( $cmd, $path, $option ); rex-1.13.1/lib/Rex/Helper/Run.pm-99- my $ret_val = $?; ############################################## rex-1.13.1/lib/Rex/Helper/Run.pm-110- if ( !$option->{fail_ok} ) { rex-1.13.1/lib/Rex/Helper/Run.pm:111: Rex::Logger::debug("Error executing `$cmd`: "); rex-1.13.1/lib/Rex/Helper/Run.pm-112- Rex::Logger::debug("STDOUT:"); ############################################## rex-1.13.1/lib/Rex/Helper/Run.pm-117- if ($is_no_hup) { rex-1.13.1/lib/Rex/Helper/Run.pm:118: $out = $exec->exec("cat $tmp_output_file ; rm -f $tmp_output_file"); rex-1.13.1/lib/Rex/Helper/Run.pm-119- $Rex::Commands::Run::LAST_OUTPUT = [$out]; ############################################## rex-1.13.1/lib/Rex/Helper/Run.pm-135- if ($is_no_hup) { rex-1.13.1/lib/Rex/Helper/Run.pm:136: $out = $exec->exec("cat $tmp_output_file ; rm -f $tmp_output_file"); rex-1.13.1/lib/Rex/Helper/Run.pm-137- $Rex::Commands::Run::LAST_OUTPUT = [$out]; ############################################## rex-1.13.1/lib/Rex/Helper/Path.pm-206- my $exec = Rex::Interface::Exec->create; rex-1.13.1/lib/Rex/Helper/Path.pm:207: my $remote_home = $exec->exec("echo \$HOME"); rex-1.13.1/lib/Rex/Helper/Path.pm-208- $remote_home =~ s/[\r\n]//gms; ############################################## rex-1.13.1/lib/Rex/Helper/SSH2.pm-41- rex-1.13.1/lib/Rex/Helper/SSH2.pm:42: $chan->exec($cmd); rex-1.13.1/lib/Rex/Helper/SSH2.pm-43- ############################################## rex-1.13.1/lib/Rex/Helper/SSH2.pm-133- rex-1.13.1/lib/Rex/Helper/SSH2.pm:134: $chan->exec($cmd); rex-1.13.1/lib/Rex/Helper/SSH2.pm-135- ############################################## rex-1.13.1/lib/Rex/Helper/File/Stat/Win32.pm-32- my $exec = Rex::Interface::Exec->create; rex-1.13.1/lib/Rex/Helper/File/Stat/Win32.pm:33: $exec->exec("perl -le 'use Fcntl; exit Fcntl::S_ISLNK($_[0])'"); rex-1.13.1/lib/Rex/Helper/File/Stat/Win32.pm-34- return $?; ############################################## rex-1.13.1/lib/Rex/Helper/File/Stat/Win32.pm-61- my $exec = Rex::Interface::Exec->create; rex-1.13.1/lib/Rex/Helper/File/Stat/Win32.pm:62: $exec->exec("perl -le 'use Fcntl; exit Fcntl::S_ISSOCK($_[0])'"); rex-1.13.1/lib/Rex/Helper/File/Stat/Win32.pm-63- return $?; ############################################## rex-1.13.1/lib/Rex/Commands/Fs.pm-891- my $exec = Rex::Interface::Exec->create; rex-1.13.1/lib/Rex/Commands/Fs.pm:892: my ( $out, $err ) = $exec->exec("df $dev 2>/dev/null"); rex-1.13.1/lib/Rex/Commands/Fs.pm-893- ############################################## rex-1.13.1/lib/Rex/Commands/Fs.pm-954- my $exec = Rex::Interface::Exec->create; rex-1.13.1/lib/Rex/Commands/Fs.pm:955: my @lines = $exec->exec("du -s $path"); rex-1.13.1/lib/Rex/Commands/Fs.pm-956- my ($du) = ( $lines[0] =~ m/^(\d+)/ ); ############################################## rex-1.13.1/lib/Rex/Commands/Fs.pm-1053- unless ($already_mounted) { rex-1.13.1/lib/Rex/Commands/Fs.pm:1054: $exec->exec($cmd); rex-1.13.1/lib/Rex/Commands/Fs.pm-1055- if ( $? != 0 ) { die("Mount failed of $mount_point"); } ############################################## rex-1.13.1/lib/Rex/Commands/Fs.pm-1188- if ($already_mounted) { rex-1.13.1/lib/Rex/Commands/Fs.pm:1189: $exec->exec("umount $mount_point"); rex-1.13.1/lib/Rex/Commands/Fs.pm-1190- if ( $? != 0 ) { die("Umount failed of $mount_point"); } ############################################## rex-1.13.1/lib/Rex/Commands/MD5.pm-113- if ( Rex::Commands::Run::can_run('md5') ) { rex-1.13.1/lib/Rex/Commands/MD5.pm:114: ($md5) = $exec->exec("md5 '$file'") =~ qr{\s+=\s+([a-f0-9]{32})\s*$}; rex-1.13.1/lib/Rex/Commands/MD5.pm-115- } rex-1.13.1/lib/Rex/Commands/MD5.pm-116- elsif ( Rex::Commands::Run::can_run('md5sum') ) { rex-1.13.1/lib/Rex/Commands/MD5.pm:117: ($md5) = $exec->exec("md5sum '$file'") =~ qr{^\\?([a-f0-9]{32})\s+}; rex-1.13.1/lib/Rex/Commands/MD5.pm-118- } ############################################## rex-1.13.1/lib/Rex/Commands/Run.pm-265- alarm $option->{timeout}; rex-1.13.1/lib/Rex/Commands/Run.pm:266: ( $out, $err ) = $exec->exec( $cmd, $path, $option ); rex-1.13.1/lib/Rex/Commands/Run.pm-267- alarm 0; ############################################## rex-1.13.1/lib/Rex/Commands/Run.pm-275- else { rex-1.13.1/lib/Rex/Commands/Run.pm:276: ( $out, $err ) = $exec->exec( $cmd, $path, $option ); rex-1.13.1/lib/Rex/Commands/Run.pm-277- } ############################################## rex-1.13.1/lib/Rex/Commands/File.pm-1286- rex-1.13.1/lib/Rex/Commands/File.pm:1287: $exec->exec($cmd); rex-1.13.1/lib/Rex/Commands/File.pm-1288- ############################################## rex-1.13.1/lib/Rex/Commands/Iptables.pm-653- else { rex-1.13.1/lib/Rex/Commands/Iptables.pm:654: die "Can't parse `$iptables -V' output `$out'"; rex-1.13.1/lib/Rex/Commands/Iptables.pm-655- } ############################################## rex-1.13.1/lib/Rex/Service/FreeBSD.pm-51- } or do { rex-1.13.1/lib/Rex/Service/FreeBSD.pm:52: Rex::Logger::info( "Running `$rccom` failed", "error" ); rex-1.13.1/lib/Rex/Service/FreeBSD.pm-53- return 0; ############################################## rex-1.13.1/lib/Rex/Template/NG.pm-94- no warnings; rex-1.13.1/lib/Rex/Template/NG.pm:95: my $tpl_code = eval($code); rex-1.13.1/lib/Rex/Template/NG.pm-96- use warnings; ############################################## rex-1.13.1/lib/Rex/Interface/Fs/SSH.pm-155- my $exec = Rex::Interface::Exec->create; rex-1.13.1/lib/Rex/Interface/Fs/SSH.pm:156: $exec->exec("perl -le 'if(-r \"$file\") { exit 0; } exit 1'"); rex-1.13.1/lib/Rex/Interface/Fs/SSH.pm-157- ############################################## rex-1.13.1/lib/Rex/Interface/Fs/SSH.pm-169- my $exec = Rex::Interface::Exec->create; rex-1.13.1/lib/Rex/Interface/Fs/SSH.pm:170: $exec->exec("perl -le 'if(-w \"$file\") { exit 0; } exit 1'"); rex-1.13.1/lib/Rex/Interface/Fs/SSH.pm-171- ############################################## rex-1.13.1/lib/Rex/Interface/Fs/SSH.pm-204- my $exec = Rex::Interface::Exec->create; rex-1.13.1/lib/Rex/Interface/Fs/SSH.pm:205: $exec->exec("/bin/mv $old $new"); rex-1.13.1/lib/Rex/Interface/Fs/SSH.pm-206- ############################################## rex-1.13.1/lib/Rex/Interface/Fs/SSH.pm-228- my $exec = Rex::Interface::Exec->create; rex-1.13.1/lib/Rex/Interface/Fs/SSH.pm:229: my $content = $exec->exec("perl -le'print join(\"*,*,*\", glob(\"$glob\"))'"); rex-1.13.1/lib/Rex/Interface/Fs/SSH.pm-230- chomp $content; ############################################## rex-1.13.1/lib/Rex/Interface/Fs/Base.pm-45- rex-1.13.1/lib/Rex/Interface/Fs/Base.pm:46: $self->_exec("/bin/sh -c '[ -L \"$path\" ]'"); rex-1.13.1/lib/Rex/Interface/Fs/Base.pm-47- my $ret = $?; ############################################## rex-1.13.1/lib/Rex/Interface/Fs/Base.pm-59- my $exec = Rex::Interface::Exec->create; rex-1.13.1/lib/Rex/Interface/Fs/Base.pm:60: $exec->exec("ln -snf $from $to"); rex-1.13.1/lib/Rex/Interface/Fs/Base.pm-61- ############################################## rex-1.13.1/lib/Rex/Interface/Fs/Base.pm-94- if ( $exec->can_run( ['chown'] ) ) { rex-1.13.1/lib/Rex/Interface/Fs/Base.pm:95: $exec->exec("chown $recursive $user $file"); rex-1.13.1/lib/Rex/Interface/Fs/Base.pm-96- ############################################## rex-1.13.1/lib/Rex/Interface/Fs/Base.pm-120- if ( $exec->can_run( ['chgrp'] ) ) { rex-1.13.1/lib/Rex/Interface/Fs/Base.pm:121: $exec->exec("chgrp $recursive $group $file"); rex-1.13.1/lib/Rex/Interface/Fs/Base.pm-122- ############################################## rex-1.13.1/lib/Rex/Interface/Fs/Base.pm-146- if ( $exec->can_run( ['chmod'] ) ) { rex-1.13.1/lib/Rex/Interface/Fs/Base.pm:147: $exec->exec("chmod $recursive $mode $file"); rex-1.13.1/lib/Rex/Interface/Fs/Base.pm-148- ############################################## rex-1.13.1/lib/Rex/Interface/Fs/Base.pm-165- my $exec = Rex::Interface::Exec->create; rex-1.13.1/lib/Rex/Interface/Fs/Base.pm:166: $exec->exec("cp -R $source $dest"); rex-1.13.1/lib/Rex/Interface/Fs/Base.pm-167- ############################################## rex-1.13.1/lib/Rex/Interface/Fs/Base.pm-205- my $exec = Rex::Interface::Exec->create; rex-1.13.1/lib/Rex/Interface/Fs/Base.pm:206: return $exec->exec($cmd); rex-1.13.1/lib/Rex/Interface/Fs/Base.pm-207-} ############################################## rex-1.13.1/lib/Rex/Interface/Fs/Sudo.pm-65- } rex-1.13.1/lib/Rex/Interface/Fs/Sudo.pm:66: $self->_exec("mv $rnd_file '$target'"); rex-1.13.1/lib/Rex/Interface/Fs/Sudo.pm-67- } ############################################## rex-1.13.1/lib/Rex/Interface/Fs/Sudo.pm-79- if ( my $ssh = Rex::is_ssh() ) { rex-1.13.1/lib/Rex/Interface/Fs/Sudo.pm:80: $self->_exec("cp '$source' $rnd_file"); rex-1.13.1/lib/Rex/Interface/Fs/Sudo.pm-81- $self->chmod( 444, $rnd_file ); ############################################## rex-1.13.1/lib/Rex/Interface/Fs/Sudo.pm-104- rex-1.13.1/lib/Rex/Interface/Fs/Sudo.pm:105: $self->_exec("test -d $path"); rex-1.13.1/lib/Rex/Interface/Fs/Sudo.pm-106- my $ret = $?; ############################################## rex-1.13.1/lib/Rex/Interface/Fs/Sudo.pm-115- rex-1.13.1/lib/Rex/Interface/Fs/Sudo.pm:116: $self->_exec("test -e $file"); rex-1.13.1/lib/Rex/Interface/Fs/Sudo.pm-117- my $is_file = $?; rex-1.13.1/lib/Rex/Interface/Fs/Sudo.pm-118- rex-1.13.1/lib/Rex/Interface/Fs/Sudo.pm:119: $self->_exec("test -d $file"); rex-1.13.1/lib/Rex/Interface/Fs/Sudo.pm-120- my $is_dir = $?; ############################################## rex-1.13.1/lib/Rex/Interface/Fs/Sudo.pm-135- ($dir) = $self->_normalize_path($dir); rex-1.13.1/lib/Rex/Interface/Fs/Sudo.pm:136: $self->_exec("mkdir $dir >/dev/null 2>&1"); rex-1.13.1/lib/Rex/Interface/Fs/Sudo.pm-137- if ( $? == 0 ) { return 1; } ############################################## rex-1.13.1/lib/Rex/Interface/Fs/Sudo.pm-166- ($file) = $self->_normalize_path($file); rex-1.13.1/lib/Rex/Interface/Fs/Sudo.pm:167: my $out = $self->_exec("perl $rnd_file $file"); rex-1.13.1/lib/Rex/Interface/Fs/Sudo.pm-168- ############################################## rex-1.13.1/lib/Rex/Interface/Fs/Sudo.pm-187- ($file) = $self->_normalize_path($file); rex-1.13.1/lib/Rex/Interface/Fs/Sudo.pm:188: $self->_exec("test -r $file"); rex-1.13.1/lib/Rex/Interface/Fs/Sudo.pm-189- ############################################## rex-1.13.1/lib/Rex/Interface/Fs/Sudo.pm-196- ($file) = $self->_normalize_path($file); rex-1.13.1/lib/Rex/Interface/Fs/Sudo.pm:197: $self->_exec("test -w $file"); rex-1.13.1/lib/Rex/Interface/Fs/Sudo.pm-198- ############################################## rex-1.13.1/lib/Rex/Interface/Fs/Sudo.pm-207- my $rnd_file = $self->_write_to_rnd_file($script); rex-1.13.1/lib/Rex/Interface/Fs/Sudo.pm:208: my $out = $self->_exec("perl $rnd_file $file"); rex-1.13.1/lib/Rex/Interface/Fs/Sudo.pm-209- my $ret = $?; ############################################## rex-1.13.1/lib/Rex/Interface/Fs/Sudo.pm-225- rex-1.13.1/lib/Rex/Interface/Fs/Sudo.pm:226: $self->_exec("mv $old $new"); rex-1.13.1/lib/Rex/Interface/Fs/Sudo.pm-227- ############################################## rex-1.13.1/lib/Rex/Interface/Fs/Sudo.pm-241- my $rnd_file = $self->_write_to_rnd_file($script); rex-1.13.1/lib/Rex/Interface/Fs/Sudo.pm:242: my $content = $self->_exec("perl $rnd_file"); rex-1.13.1/lib/Rex/Interface/Fs/Sudo.pm-243- my $ret = $?; ############################################## rex-1.13.1/lib/Rex/Interface/Fs/Sudo.pm-289- my $exec = Rex::Interface::Exec->create("Sudo"); rex-1.13.1/lib/Rex/Interface/Fs/Sudo.pm:290: return $exec->exec( $cmd, $path, $option ); rex-1.13.1/lib/Rex/Interface/Fs/Sudo.pm-291-} ############################################## rex-1.13.1/lib/Rex/Interface/Fs/Local.pm-168- $new =~ s/\//\\/g; rex-1.13.1/lib/Rex/Interface/Fs/Local.pm:169: $exec->exec("move \"$old\" \"$new\""); rex-1.13.1/lib/Rex/Interface/Fs/Local.pm-170- } ############################################## rex-1.13.1/lib/Rex/Interface/Fs/Local.pm-173- ($new) = $self->_normalize_path($new); rex-1.13.1/lib/Rex/Interface/Fs/Local.pm:174: $exec->exec("/bin/mv $old $new"); rex-1.13.1/lib/Rex/Interface/Fs/Local.pm-175- } ############################################## rex-1.13.1/lib/Rex/Interface/Exec/SSH.pm-63- rex-1.13.1/lib/Rex/Interface/Exec/SSH.pm:64: my $exec = $shell->exec( $cmd, $option ); rex-1.13.1/lib/Rex/Interface/Exec/SSH.pm-65- Rex::Logger::debug("SSH/executing: $exec"); rex-1.13.1/lib/Rex/Interface/Exec/SSH.pm:66: my ( $out, $err ) = $self->_exec( $exec, $option ); rex-1.13.1/lib/Rex/Interface/Exec/SSH.pm-67- ############################################## rex-1.13.1/lib/Rex/Interface/Exec/SSH.pm-88- my $ssh = Rex::is_ssh(); rex-1.13.1/lib/Rex/Interface/Exec/SSH.pm:89: my ( $out, $err ) = net_ssh2_exec( $ssh, $exec, $self, $option ); rex-1.13.1/lib/Rex/Interface/Exec/SSH.pm-90- ############################################## rex-1.13.1/lib/Rex/Interface/Exec/Base.pm-91- Rex::Logger::debug("$class_name/executing: $exec"); rex-1.13.1/lib/Rex/Interface/Exec/Base.pm:92: my ( $out, $err ) = $self->_exec( $exec, $option ); rex-1.13.1/lib/Rex/Interface/Exec/Base.pm-93- ############################################## rex-1.13.1/lib/Rex/Interface/Exec/Sudo.pm-198- rex-1.13.1/lib/Rex/Interface/Exec/Sudo.pm:199: my $real_exec = $shell->exec( $cmd, $option ); rex-1.13.1/lib/Rex/Interface/Exec/Sudo.pm-200- Rex::Logger::debug("sudo: exec: $real_exec"); rex-1.13.1/lib/Rex/Interface/Exec/Sudo.pm-201- rex-1.13.1/lib/Rex/Interface/Exec/Sudo.pm:202: return $exec->direct_exec( $real_exec, $option ); rex-1.13.1/lib/Rex/Interface/Exec/Sudo.pm-203-} ############################################## rex-1.13.1/lib/Rex/Interface/Exec/Sudo.pm-220- rex-1.13.1/lib/Rex/Interface/Exec/Sudo.pm:221: return $exec->_exec( $cmd, $option ); rex-1.13.1/lib/Rex/Interface/Exec/Sudo.pm-222-} ############################################## rex-1.13.1/lib/Rex/Interface/Exec/Local.pm-93- rex-1.13.1/lib/Rex/Interface/Exec/Local.pm:94: ( $out, $err ) = $self->_exec( $cmd, $option ); rex-1.13.1/lib/Rex/Interface/Exec/Local.pm-95- ############################################## rex-1.13.1/lib/Rex/Interface/File/Sudo.pm-123- rex-1.13.1/lib/Rex/Interface/File/Sudo.pm:124: #$exec->exec("cat " . $self->{rndfile} . " >'" . $self->{file} . "'"); rex-1.13.1/lib/Rex/Interface/File/Sudo.pm-125- } ############################################## rex-1.13.1/lib/Rex/Interface/Shell/Base.pm-59- rex-1.13.1/lib/Rex/Interface/Shell/Base.pm:60: my ($shell_path) = $con->_exec("echo \$SHELL"); rex-1.13.1/lib/Rex/Interface/Shell/Base.pm-61- if ( !$shell_path ) { ############################################## rex-1.13.1/lib/Rex/Interface/Shell/Base.pm-70- rex-1.13.1/lib/Rex/Interface/Shell/Base.pm:71: ($shell_path) = $con->_exec("echo \$SHELL"); rex-1.13.1/lib/Rex/Interface/Shell/Base.pm-72- } ############################################## rex-1.13.1/lib/Rex/Resource/firewall/Provider/ufw.pm-165- rex-1.13.1/lib/Rex/Resource/firewall/Provider/ufw.pm:166: my $return = $self->_ufw_exec($cmd); rex-1.13.1/lib/Rex/Resource/firewall/Provider/ufw.pm-167- ############################################## rex-1.13.1/lib/Rex/Resource/firewall/Provider/ufw.pm-181- if ( $return =~ /Status: $needed/ ) { rex-1.13.1/lib/Rex/Resource/firewall/Provider/ufw.pm:182: my $ret = $self->_ufw_exec("--force $action"); rex-1.13.1/lib/Rex/Resource/firewall/Provider/ufw.pm-183- my $success = ############################################## rex-1.13.1/lib/Rex/Resource/firewall/Provider/ufw.pm-218- if ($need_update) { rex-1.13.1/lib/Rex/Resource/firewall/Provider/ufw.pm:219: my $ret = $self->_ufw_exec("logging $param"); rex-1.13.1/lib/Rex/Resource/firewall/Provider/ufw.pm-220- my $success = ############################################## rex-1.13.1/lib/Rex/Virtualization/VBox/start.pm-71- unlink "$filename"; rex-1.13.1/lib/Rex/Virtualization/VBox/start.pm:72: exec("VBoxHeadless --startvm \\\"$dom\\\""); rex-1.13.1/lib/Rex/Virtualization/VBox/start.pm-73- exit; ############################################## rex-1.13.1/lib/Rex/Virtualization/LibVirt/guestinfo.pm-99- my $exec = Rex::Interface::Exec->create(); rex-1.13.1/lib/Rex/Virtualization/LibVirt/guestinfo.pm:100: my ($data) = $exec->exec("perl $rnd_file $info->{has_kvm_agent_on_port}"); rex-1.13.1/lib/Rex/Virtualization/LibVirt/guestinfo.pm-101-