my $newline  = "\n";
    my $tab      = "\t";
    my $carriage = "\r";