#!/usr/bin/perl

open(my $in,  ">",  "C:/Documents and Settings/admin/Local Settings/Temp/texti.txt")  or die "Can't open license.txt: $!"