#!/usr/bin/perl -w
use strict;

# Modules to use
use Config::IniFiles;

# Variables
my ($CorE, $PlugInDir, $LogFile, $ForkLimit, $TftpRoot, $TftpPath, $FileStyle,
$DateStyle, $PreCmd, $PostCmd, $SNMPver, $SNMPretry, $SNMPwait, $SNMPmtu,
$SNMPdebug, $SNMPCommunity, $TFTPserver);

# Start

print 'Would you like to edit the current pancho configuration file
  or Create a new file [e/C]? ';$CorE=<STDIN>;

# Create new file
  if ($CorE eq 'C') {
  open (CREATE,">>pancho.conf");
    print CREATE "[Global]";
  print 'What is the IP address of your TFTP server? ';
  $TFTPserver=<STDIN>;
  print CREATE $TFTPserver;
  close (CREATE);
}