# to call the subroutine you now do this:
# ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^

# log_file($logfile, "I want to append this text to the file");

#This subroutine creates a time stamp.. when i print it outside the su
+broutine it prints out nicely, when i put print "$file";

sub get_timestamp {

                my($sec,$min,$hour,$mday,$mon,$year) = localtime(time)
+;

                if ($mon < 10) { $mon = "0$mon"; }
                if ($hour < 10) { $hour = "0$hour"; }
                if ($min < 10) { $min = "0$min"; }
                if ($sec < 10) { $sec = "0$sec"; }
                        $year=$year+1900;

return $year . '_' . $mon . '_' . $mday . '_' . $hour . '_' . $min . '
+_' . $sec;
}

my $unique_filename = '' . get_timestamp();
my $file = $unique_filename;
my $logfile = '../' . FOLDER . "/$file";
#when i print logfile it gives a path.. it works fine.

sub log_file{
#error says i can't open logfile or invalid use of concatenation
               my $logfile = shift;
               open (LOGFILE, ">>$logfile") or die "cannot open logfil
+e for append: $!";
                print LOGFILE join(" ",@_,"\n");
            }
[download]