$ touch smallest
$ perl smallest