my $user = "User"; open(USER, ">$user.txt") || die "Can't create user file $user.txt: $!"; print USER "foo";#user data goes here