my $a = 'some value'; log( $a ); sub log { open( LOG, '>>/var/log/my.log' ); print LOG join( ' ', @_, "\n" ); close LOG; }