use File::Spec;

my $FileName;
my $homedir = $ENV{HOME};

if ($FileName =~ /^~/) {
  $FileName =~ s/^~//;
  $FileName = File::Spec->catfile($homedir, $FileName);
}