Index: trunk/cd2flac
===================================================================
--- trunk/cd2flac	(revision 41)
+++ trunk/cd2flac	(revision 42)
@@ -12,4 +12,5 @@
 use Cwd;
 use Audio::FLAC::Header;
+use MusicBrainz;
 
 GetOptions(
@@ -18,4 +19,5 @@
     'force|f'     => \my $FORCE,
     'barcode|b=s' => \my $BARCODE,
+    'properties'  => \my $PROPERTIES,
 );
 
@@ -39,5 +41,19 @@
 my $tags = $BARCODE ? { BARCODE => $BARCODE } : {};
 my $ripper = Ripper->new({ device => $CD_DEVICE });
-$ripper->rip_to_flac($archive_flac, $tags);
+my $flac_disc = $ripper->rip_to_flac($archive_flac, $tags);
+
+if ($PROPERTIES) {
+    my $info = get_musicbrainz_info({
+        discid  => $flac_disc->discid,
+        barcode => $flac_disc->barcode,
+    });
+    if ($info) {
+        (my $properties_file = $archive_flac) =~ s/\.flac$/.properties/;
+        open my $fh, '>', $properties_file or die "Cannot write $properties_file\n";
+        print $fh "$_=$$info{$_}\n" foreach sort keys %{ $info };
+        close $fh;
+        print "Properties written as $properties_file\n";
+    }
+}
 
 print "Rip saved as $archive_flac\n";