lsw/make-title-bin.pl

   1 #!/usr/bin/perl
   2 sub printline {
   3         my $x = shift;
   4         chomp $x;
   5         $x .= "\0" x 32;
   6         $x = substr $x, 0, 32;
   7         $x =~ s/(.)/\0$1/g;
   8
   9         print $x;
  10 }
  11
  12 $name = "Return of the Jodi";
  13 $version = `cat ../.version`;
  14
  15 printline $name;
  16 printline $version;