#! /usr/bin/perl -w

while ( $input ne "q" ) {
    print "Enter the day and image numbers (ie, 1216 14), or 'q' to quit: ";
    @input = <STDIN>;
#    if ( $#input == 1  ) {
#      ($day,$image) = split $input;
#    }
#    print "$day $image\n";
    print @input;
  }