#!/bin/sh

stat_inode() {
    perl -le 'foreach (@ARGV) { @s=stat($_); print $s[1] }'
}