sub create_logfile
{
    my (
        $logfile,   # final logfile name
        $filename,  # filename sans extension
        $filext,    # filename extension
        $filedir    # dir for logfile
        );

    # Get filename components
    ($filename, $filedir, $filext) = fileparse($0, '\..*');

    # Create filename
    $logfile = "${filedir}log/$filename.log";

    # Redirect STDOUT & STDERR to named logfile
    open( STDOUT, ">$logfile") or
                        die "\nUnable to open logfile $logfile: $!\n";
    open( STDERR, ">>&STDOUT");

    # Set autoflush on
    select (STDERR); $| = 1;
    select (STDOUT); $| = 1;
}