use utf8;
use CGI qw(-utf8);
binmode(STDOUT, ":utf8");

1;

sub exportdatabase { 
#INCOMING GLOBAL VARS: $statement, $db_export_file,
# $cur_date, $cur_time, $OS, $table, $quest

fork: {

#...truncated.