my $language    = "";           # your native language
                                # "de" "es" "fr" "pt" "uk"

## create hash of various language specific output
my %lang = ();

  ## set the elected language to lowercase
  $language = lc($language);

  ## deutsch
  if ($language eq "de") {

  ## español
  } elsif ($language eq "es") {

    $lang{flag_req}     = "Se requiere al menos una opción.";
    $lang{run_help}     = "Si se necesita ayuda, corre $0 --help";
    $lang{no_open}      = "No se puede abrir el archivo especificado con --list";
    $lang{chk_path}     = "";
    $lang{no_nodes}     = "";
    $lang{no_snmp}      = "";
    $lang{no_tftp}      = "";
    $lang{exp_tftp}     = "";
    $lang{no_file}      = "";
    $lang{no_updown}    = "";
    $lang{version}      = "";
    $lang{no_log}       = "";
    $lang{exp_path}     = "";
    $lang{copy_start}   = "";
    $lang{no_catos}     = "";
    $lang{no_depmib}    = "";
    $lang{cp_success}   = "";
    $lang{on}           = "";
    $lang{from}         = "";
    $lang{to}           = "";
    $lang{by}           = "";
    $lang{cp_from}      = "";
    $lang{cp_to}        = "";
    $lang{to_nvram}     = "";
    $lang{cp_nvram}     = "";
    $lang{from_nvram}   = "";
    $lang{wr_success}   = "";
    $lang{rel_success}  = "";
    $lang{init}         = "";

  ## français
  } elsif ($language eq "fr") {

  ## portugues
  } elsif ($language eq "pt") {

  ## english
  } else {
    $lang{flag_req}     = "Pancho requires some flags to be specified.";
    $lang{run_help}     = "Please try running $0 --help";
    $lang{no_open}      = "Can't open external file specified with --list.";
    $lang{chk_path}     = "Please check the path and ensure file exists.";
    $lang{no_nodes}     = "You have not specified a node or a list of nodes to act upon!";
    $lang{no_snmp}      = "You have not specified an SNMP community.";
    $lang{no_tftp}      = "You have not specified a tftp server.";
    $lang{exp_tftp}     = "In order to tftp a configuration to a remote device";
    $lang{no_file}      = "you must indicate a specific filename using -f.";
    $lang{no_updown}    = "You cannot upload and download at the same time.";
    $lang{version}      = "This is Pancho version";
    $lang{no_log}       = "Can't open file specified for logging.";
    $lang{exp_path}     = "Please check the path specified.";
    $lang{copy_start}   = "Copying configurations to and from startup-config";
    $lang{no_catos}     = "is not possible using the CatOS.";
    $lang{no_depmib}    = "is not possible using deprecated mibs.";
    $lang{cp_success}   = "Successfully copied config to";
    $lang{on}           = "on";
    $lang{from}         = "from";
    $lang{to}           = "to";
    $lang{by}           = "by";
    $lang{cp_from}      = "copied from";
    $lang{cp_to}        = "copied to";
    $lang{to_nvram}     = "to nvram on";
    $lang{cp_nvram}     = "copied to nvram on";
    $lang{from_nvram}   = "from nvram on";
    $lang{wr_success}   = "Successfully wrote config to memory on";
    $lang{rel_success}  = "Successfully initialized a reload of";
    $lang{init}         = "initialization of reload on";

  }