#!/usr/bin/perl

use Modern::Perl;

exit main( @ARGV );

sub main {
	for my $old (<*.png>) {
		my $new = $old =~ s/\.png/-free-cash-flow-graph.png/r;
		rename $old, $new;
		symlink $new, $old;
	}
	return 0;
}
