view release on metacpan or  search on metacpan

ec  view on Meta::CPAN

use Tk::SimpleFileSelect;
use Tk::ECWarning;
use EC::ECConfig;
use EC::Attachments;
use EC::Utilities;
use EC::ECIcon;

#
# Get user info
#
my $localuser = $^O =~ /Win/ ? $ENV{USERNAME} : (getpwuid ($<))[0] or 
    die "Could not determine your login name: $!\n";

#
#  Path names for library files.  Edit these for your configuration.
#
# Icon file name
$iconpath = inc_path ('EC/ec.xpm');
#  Configuration options file.
$cfgfilename = expand_path ('~/.ec/.ecconfig');
# Server authorization file.