open (RF, ">$roster_file");
    #Add Header Row here
    print RF "\nName         Age Nat St Tk Ps Sh Ag KAb TAb PAb SAb Gam Sav Ktk Kps Sht Gls Ass  DP Inj Sus\n",
             "----------------------------------------------------------------------­---------------------\n\n";
    # Fetch each row and print it
    while ( my ($name, $age, $nat, $st, $tk, $ps, $sh, $agg, $kab, $tab, $pab, $sab) = $sth->fetchrow_array() ) {
        print RF "$name, $age, $nat, $st, $tk, $ps, $sh, $agg\n";
    }
    close RF;