sub createStruct{
	my %song = ();
	my $orig_url = $song{url} = shift;
	my $url = URI->new( "$orig_url" );
	my $domain = $song{domain} = $url->host;
	my @split_url = split('/',$url);
	my $filename = $song{filename} = $split_url[-1]; 
	$orig_url = $url; 
	$orig_url =~ s/$domain//g;
	$orig_url =~ s/$filename//g;
	$orig_url =~ s/http:\/\/|https:\/\/|ftp:\/\///g;
	my $dir = $song{dir} = $orig_url;
	return \%song;
}