# current dir
sub dir{
    shift;
    my @names = map{ unpack "A*", $_ } qx(dir /b);
    my $res = "";
    my @months = qw(Jan Feb Mar Apr Mai Jun Jul Aug Sep Oct Nov Dec);
    foreach my $name(@names){
        my $stat = [stat($name)];
        my @mtime = localtime $stat->[9];
        my $day  =  $mtime[3];
        my $mon  =  $months[$mtime[4]];
        my $year = $mtime[5] + 1900;
        $res .= sprintf qq(%srw-rw-rw- 1 usr grp %11d %s %02d %04d %s\n),
            -d $name ? "d" : "-",
            -f $name ? $stat->[7] : 0,
            $mon, $day, $year,
            $name;
    }
    return $res;
}