#!/usr/athena/bin/perl

print("File reformatter.\n");
print("\nHow many