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