#!/usr/bin/perl -w
use strict;
use constant N => qq[\n] x 2;

print(N . sprintf('%04o',(stat('./'))[2] & 07777));

print(N . sprintf('%04o',(stat('/usr/bin/perl'))[2] & 07777) . N);