my $path = $ENV{'USERPROFILE'};
$path =~s/\\/\//g;

my $desktop_path = "$path/Desktop";