Next Welcome to my ~/bin 92

`print`: Main loop

          if ($type eq '???') {
            die "I can't figure out what type of data is in that file.\n";
          }
          my @path = conversion_path($type, $CONF{printable});

This figures out how to convert the file to the preferred format
- We will see it later

          warn "Conversion path: @path\n" if $opt_v;
          unless (@path) {
            die "I don't know how to convert from file type $type to
            $CONF{printable}.\n";
          }
          shift @path;          # the first element is the source type

          for my $next_type (@path) {
            $file = convert($file, $next_type,
            $CONF{"$type\->$next_type"});
            $type = $next_type;
          }
          spool($file) for 1 .. $NCOPIES;
          unlink @TMPFILES;
          @TMPFILES = ();
        }

That's it

print: Main loop

`print`: Main loop