open my $bedrock, ">>", "/home/barney/.error_log";
select $bedrock;