open (my $writefile, '>',"systeminfo.txt") or die $!;