#!/usr/bin/perl -w
use strict;

my $dfile = "/stuff/stuff/contest/me/td";
my $wfile = "/stuff/stuff/contest/me /tw";
my $gfile = "/stuff/stuff/contest/me /tg";
my %input;
my $input;
my $wt=$input{'weight'};
my $d=$input{'date'};
my $g=$input{'Goal_Weight'};

open (DATA,">$gfile") or die "File cannot be opened $!\n";
        print DATA "$g";
        close (DATA);
open (DATA,">>$wfile") or die "File cannot be opened $!\n";
        print DATA "$wt\n";
        close (DATA);
open (DATA,">>$dfile") or die "File cannot be opened $!\n";
	print DATA "$d\n";
	close (DATA);