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);