#!/usr/bin/perl

my $target_disk = $ARGV[2];

########################################################################################
# keep old stuff if it is there.
use File::Copy;

my $pluginsettings = $target_disk . "/Library/Application Support/GarageBand/Instrument Library/Plug-in Settings/";

if (-d $pluginsettings . "Electric Clavinet") {
	move($pluginsettings . "Electric Clavinet", $pluginsettings . "fpuzhpxf")
}

########################################################################################
# now make sure to exit 0
exit 0;
