#!/usr/bin/perl -w
use strict;
use Data::Hub::FileSystem::Node;
for (@ARGV) {
  printf "%s\n", Data::Hub::FileSystem::Node->new($_)->get_type();
}
