use warnings;
use strict;

use IO::File;
use feature('say');

sub openFile{
	my $file = shift;

	#open my $fh, '>' , $file or die $!;

	my $fh = IO::File->new();
    if ($fh->open(">> $file")){
        say "I opened $file";
        $fh->close;
    } else { 
    say "failed to open $file $! ";
    }
}

openFile('C:\Users\Shain\AppData\Roaming\WaterAccount\file.log');
openFile("C:\Users\Shain\AppData\Roaming\WaterAccount\file.log");

openFile('$ENV{APPDATA}\WaterAccount\file.log');
openFile("$ENV{APPDATA}\WaterAccount\file.log");

openFile('C:\\Users\\Shain\\AppData\\Roaming\\WaterAccount\\file.log');
openFile("C:\\Users\\Shain\\AppData\\Roaming\\WaterAccount\\file.log");

openFile('$ENV{APPDATA}\\WaterAccount\\file.log');
openFile("$ENV{APPDATA}\\WaterAccount\\file.log");

openFile('C:\/Users\/Shain\/AppData\/Roaming\/WaterAccount\/file.log');
openFile("C:\/Users\/Shain\/AppData\/Roaming\/WaterAccount\/file.log");

openFile('C:/Users/Shain/AppData/Roaming/WaterAccount/file.log');
openFile("C:/Users/Shain/AppData/Roaming/WaterAccount/file.log");

openFile('$ENV{APPDATA}/WaterAccount/file.log');
openFile("$ENV{APPDATA}/WaterAccount/file.log");