the dir name of a filename

dirname.pl

use strict;
use File::Basename;

my @list=qw(
base1/file
/base1/base2/hello.java
\base1\base2\tmp.txt
);

foreach my $filename (@list) {
   my $dirname=dirname($filename);
	print "$filename,$dirname\n";
}