#!/usr/bin/perl

use File::Scan;
use File::Find::Rule;
use MIME::Parser;
use strict;

# Make sure we have an output directory...

	mkdir('/tmp/radioactive') unless ( -d '/tmp/radioactive' );
	mkdir("/tmp/radioactive/$$") unless ( -d "/tmp/radioactive/$$" );
	`rm -Rf /tmp/radioactive/$$/*`;

# Read in the message

	my $parser = new MIME::Parser;
	$parser->output_under("/tmp/radioactive/$$");
	$parser->parse( \*STDIN ) or die "Failed to parse message!";

# Grab all files...

	my @files = File::Find::Rule->file()->in( "/tmp/radioactive/$$/" );

	for my $filename (@files) {

		my $nice_filename = $filename;
		$nice_filename =~ s!.+/!!;

		print "Scanning $nice_filename...\n";

		my $scanner = File::Scan->new();
		my $vname = $scanner->scan( $filename );

		print "\tFOUND: $vname\n" if $vname;

	}

# Cleanup

	END { `rm -Rf /tmp/radioactive/$$`  }