#!/usr/bin/perl -w

use strict;

my $name = "Zenon Zabinski";
my $date = "072800";

open(FILE, "folder/${name}/${date}.txt");

print FILE "test";

close FILE;