#!/usr/bin/perl -w

use strict;
use File::Basename;

my $path = '~/disk2/gcg/users/seqs.fsa';
my $file = basename($path);
my $dir  = dirname($path);

print "File is $file in the directory: $dir\n";