devilzc0de rulez !!! perl jumping script (CLI)

#!/usr/bin/env perl
# devilzc0de.org (c) 2012
use File::Basename;
use File::Copy;

if(($#ARGV != 0) && ($#ARGV != 1)){
    print "usage : perl ".basename($0)." [path to dir/file] [path to save file]\r\n";
    print "ex    : perl ".basename($0)." /etc\r\n";
    print "ex    : perl ".basename($0)." /etc/issue\r\n";
    print "ex    : perl ".basename($0)." /etc/issue issue_new_copy\r\n";
    exit;
}

$target = @ARGV[0];
$target =~ s/\\/\//g;

if(-d $target){
    if(!($target =~ /.*\/+$/)){
        $target = $target."/";
    }
    if(opendir(DIR,$target)){
        while($file = readdir(DIR)){
            if(($file eq ".") || ($file eq "..")){ next; }
            $fs = "";
            if(-d $target.$file){
                $fs = "[ DIR ]";
            }
            elsif(-f $target.$file){
                $fs = (-s $target.$file);
            }
             print sprintf("%12s", $fs)." ".$file."\r\n";
        }
        closedir(DIR);
    }

}
elsif(-f $target){
    if($#ARGV == 1){
        copy($target, @ARGV[1]);
    }
    else{
        if(open(FILE,$target)){
            binmode FILE;
            while (($n = read FILE, $data, 1024) != 0) {
                print $data;
            }
            close(FILE);
        }
    }
}
else{
    print "Can't found file or folder : ".$target;
}