scmtomap

   1 #!/usr/bin/env perl
   2
   3 use strict;
   4 use warnings;
   5
   6 use Archive::MoPaQ;
   7
   8 @ARGV or die "Usage: $0 filename.scm\n";
   9
  10 my $mpq = Archive::MoPaQ->new or die;
  11 print $mpq->open($ARGV[0]);
  12 $mpq->listopen("");
  13 $mpq->extract(1);
  14