use strict;
use warnings;
use Data::Dumper;

my $BACKUPSTATE = "tasklist.exe";
my $state = "ovbbccb";

	open (DDDD, "$BACKUPSTATE |") || die "Failed: $!\n";
	my @cmdout;
	while ( <DDDD> )
	{
		@cmdout = $_; 
	}
	close (DDDD);

	
print "Output of command is =" . Dumper(@cmdout);
	
##</code><code>##

output: Output of command is =$VAR1 = 'tasklist.exe                  2716 RDP-Tcp#1
             3      5\'936 K
';