Select Code to Download

#! /usr/bin/perl -w

use strict;
use File::Basename;

print dirname 'c:/mail/test2';