Index: /trunk/cd2flac
===================================================================
--- /trunk/cd2flac	(revision 37)
+++ /trunk/cd2flac	(revision 38)
@@ -11,9 +11,11 @@
 use Getopt::Long qw{:config no_ignore_case no_auto_abbrev};
 use Cwd;
+use Audio::FLAC::Header;
 
 GetOptions(
-    'device|D=s' => \my $CD_DEVICE,
-    'output|o=s' => \my $OUTPUT_NAME,
-    'force|f'    => \my $FORCE,
+    'device|D=s'  => \my $CD_DEVICE,
+    'output|o=s'  => \my $OUTPUT_NAME,
+    'force|f'     => \my $FORCE,
+    'barcode|b=s' => \my $BARCODE,
 );
 
@@ -38,4 +40,9 @@
 $ripper->rip_to_flac($archive_flac);
 
+if ($BARCODE) {
+    print "Writing barcode\n";
+    system 'metaflac', '--set-tag', "BARCODE=$BARCODE", $archive_flac;
+}
+
 print "Rip saved as $archive_flac\n";
 system 'eject', $CD_DEVICE;