sub TimeStamp($) # Pass the stamp in as YYYYMMDD
{
    $_=$_[0];
    if( /(\d{4})(\d{2})(\d{2})/ )
    {   #returns in MMDDYYYY
        $date_created = "$2/$3/$1"
    }
    else { warn "Invalid input to TimeStamp()" }
}