open(LOG, "> $LOG_FILE") || die "Can't redirect stdout";
#open(STDERR, ">&LOG")   || die "Can't dup stdout";
    
open (CMD, " ls |");

while (<CMD>)
{
	lprint ($_)
}

close(CMD);

sub lprint ()
{	
	my ($line) = @_;
	print LOG $line;	
#	print STDERR $line;
#	print STDERR $_;
	print $line;
}